home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpvar.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  36.1 KB  |  1,441 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpvar.h"
  4. init_cmpvar(){do_init(VV);}
  5. /*    local entry for function MAKE-VAR    */
  6.  
  7. static object LI1(va_alist)
  8.     va_dcl 
  9. {    
  10.     va_list ap;
  11.     int narg = VFUN_NARGS; VMB1 VMS1 VMV1
  12.     {object V1;
  13.     object V2;
  14.     object V3;
  15.     object V4;
  16.     object V5;
  17.     object V6;
  18.     object V7;
  19.     narg= narg - 0;
  20.     va_start(ap);
  21.     {
  22.     parse_key_new(narg,Vcs +0,&LI1key,ap);
  23.     V1=(Vcs[0]);
  24.     V2=(Vcs[1]);
  25.     V3=(Vcs[2]);
  26.     V4=(Vcs[3]);
  27.     V5=(Vcs[4]);
  28.     if(Vcs[5]==0){
  29.     V6= Ct;
  30.     }else{
  31.     V6=(Vcs[5]);}
  32.     V7=(Vcs[6]);
  33.     base[0]= VV[0];
  34.     base[1]= (V1);
  35.     base[2]= (V2);
  36.     base[3]= (V3);
  37.     base[4]= (V4);
  38.     base[5]= (V5);
  39.     base[6]= (V6);
  40.     base[7]= (V7);
  41.     vs_top=(vs_base=base+0)+8;
  42.     siLmake_structure();
  43.     vs_top=sup;
  44.     {object V8 = vs_base[0];
  45.     VMR1(V8)}}
  46.     }}
  47. /*    local entry for function C1MAKE-VAR    */
  48.  
  49. static object LI2(V13,V14,V15,V16)
  50.  
  51. register object V13;object V14;object V15;object V16;
  52. {     VMB2 VMS2 VMV2
  53. TTL:;
  54.     {register object V17;
  55.     V17= Cnil;
  56.     {register object V18;
  57.     V18= (VFUN_NARGS=2,(*(LnkLI66))(VV[1],(V13)));
  58.     if(type_of((V13))==t_symbol){
  59.     goto T12;}
  60.     (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[2],(V13))));
  61. T12:;
  62.     base[0]= (V13);
  63.     vs_top=(vs_base=base+0)+1;
  64.     Lconstantp();
  65.     vs_top=sup;
  66.     if((vs_base[0])==Cnil){
  67.     goto T15;}
  68.     (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[3],(V13))));
  69. T15:;
  70.     {register object x= (V13),V19= (V14);
  71.     while(!endp(V19))
  72.     if(eql(x,V19->c.c_car)){
  73.     goto T20;
  74.     }else V19=V19->c.c_cdr;}
  75.     base[0]= (V13);
  76.     vs_top=(vs_base=base+0)+1;
  77.     siLspecialp();
  78.     vs_top=sup;
  79.     if((vs_base[0])==Cnil){
  80.     goto T21;}
  81. T20:;
  82.     (void)(structure_set((V18),VV[0],1,VV[4]));
  83.     V20= (*(LnkLI68))((V13));
  84.     (void)(structure_set((V18),VV[0],4,/* INLINE-ARGS */V20));
  85.     {register object x= (V13),V21= (V16);
  86.     while(!endp(V21))
  87.     if(type_of(V21->c.c_car)==t_cons &&eql(x,V21->c.c_car->c.c_car)){
  88.     V17= (V21->c.c_car);
  89.     goto T32;
  90.     }else V21=V21->c.c_cdr;
  91.     V17= Cnil;}
  92. T32:;
  93.     if(((V17))==Cnil){
  94.     goto T30;}
  95.     (void)(structure_set((V18),VV[0],5,cdr((V17))));
  96.     goto T28;
  97. T30:;
  98.     V17= get((V13),VV[5],Cnil);
  99.     if(((V17))==Cnil){
  100.     goto T28;}
  101.     (void)(structure_set((V18),VV[0],5,(V17)));
  102. T28:;
  103.     setq(VV[6],Ct);
  104.     goto T19;
  105. T21:;
  106.     {register object V22;
  107.     register object V23;
  108.     V22= (V16);
  109.     V23= car((V22));
  110. T41:;
  111.     if(!(endp((V22)))){
  112.     goto T42;}
  113.     goto T37;
  114. T42:;
  115.     if(!((car((V23)))==((V13)))){
  116.     goto T46;}
  117.     {object V24= cdr((V23));
  118.     if((V24!= VV[7]))goto T49;
  119.     (void)(structure_set((V18),VV[0],4,VV[7]));
  120.     goto T46;
  121. T49:;
  122.     if((V24!= VV[69]))goto T50;
  123.     V25= structure_ref((V18),VV[0],6);
  124.     V26= number_plus(/* INLINE-ARGS */V25,small_fixnum(100));
  125.     (void)(structure_set((V18),VV[0],6,/* INLINE-ARGS */V26));
  126.     goto T46;
  127. T50:;
  128.     (void)(structure_set((V18),VV[0],5,cdr((V23))));}
  129. T46:;
  130.     V22= cdr((V22));
  131.     V23= car((V22));
  132.     goto T41;}
  133. T37:;
  134.     base[0]= VV[8];
  135.     vs_top=(vs_base=base+0)+1;
  136.     Lboundp();
  137.     vs_top=sup;
  138.     if((vs_base[0])!=Cnil){
  139.     goto T57;}
  140.     goto T56;
  141. T57:;
  142.     if(symbol_value(VV[8])==Cnil){
  143.     goto T56;}
  144.     V27= structure_ref((V18),VV[0],5);
  145.     if(!((/* INLINE-ARGS */V27)==Cnil)){
  146.     goto T62;}
  147.     goto T60;
  148. T62:;
  149.     V28= structure_ref((V18),VV[0],5);
  150.     if((Ct)==(/* INLINE-ARGS */V28)){
  151.     goto T60;}
  152.     goto T56;
  153. T60:;
  154.     (void)(structure_set((V18),VV[0],4,VV[7]));
  155. T56:;
  156.     (void)(structure_set((V18),VV[0],1,VV[9]));
  157. T19:;
  158.     {register object x= (V13),V29= (V15);
  159.     while(!endp(V29))
  160.     if(eql(x,V29->c.c_car)){
  161.     goto T66;
  162.     }else V29=V29->c.c_cdr;
  163.     goto T64;}
  164. T66:;
  165.     (void)(structure_set((V18),VV[0],2,VV[10]));
  166. T64:;
  167.     {object V30 = (V18);
  168.     VMR2(V30)}}}
  169. }
  170. /*    local entry for function CHECK-VREF    */
  171.  
  172. static object LI3(V32)
  173.  
  174. register object V32;
  175. {     VMB3 VMS3 VMV3
  176. TTL:;
  177.     V33= structure_ref((V32),VV[0],1);
  178.     if(!((/* INLINE-ARGS */V33)==(VV[9]))){
  179.     goto T68;}
  180.     if((structure_ref((V32),VV[0],2))!=Cnil){
  181.     goto T68;}
  182.     if((structure_ref((V32),VV[0],3))!=Cnil){
  183.     goto T68;}
  184.     V34= structure_ref((V32),VV[0],0);
  185.     {object V35 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],/* INLINE-ARGS */V34));
  186.     VMR3(V35)}
  187. T68:;
  188.     {object V36 = Cnil;
  189.     VMR3(V36)}
  190. }
  191. /*    local entry for function C1VAR    */
  192.  
  193. static object LI4(V38)
  194.  
  195. object V38;
  196. {     VMB4 VMS4 VMV4
  197. TTL:;
  198.     {object V39;
  199.     object V40;
  200.     V39= (VFUN_NARGS=0,(*(LnkLI71))());
  201.     V40= (*(LnkLI72))((V38));
  202.     {object V42;
  203.     V43= car((V40));
  204.     V44= structure_ref(V39,VV[12],1);
  205.     V42= make_cons(/* INLINE-ARGS */V43,/* INLINE-ARGS */V44);
  206.     (void)(structure_set(V39,VV[12],1,(V42)));}
  207.     V45= structure_ref(car((V40)),VV[0],5);
  208.     (void)(structure_set((V39),VV[12],2,/* INLINE-ARGS */V45));
  209.     {object V46 = list(3,VV[0],(V39),(V40));
  210.     VMR4(V46)}}
  211. }
  212. /*    local entry for function C1VREF    */
  213.  
  214. static object LI5(V48)
  215.  
  216. register object V48;
  217. {     VMB5 VMS5 VMV5
  218. TTL:;
  219.     {register object V49;
  220.     register object V50;
  221.     V49= Cnil;
  222.     V50= Cnil;
  223.     {register object V51;
  224.     register object V52;
  225.     V51= symbol_value(VV[13]);
  226.     V52= car((V51));
  227. T84:;
  228.     if(!(endp((V51)))){
  229.     goto T85;}
  230.     {register object V53;
  231.     V53= (*(LnkLI73))((V48));
  232.     if(((V53))!=Cnil){
  233.     goto T89;}
  234.     base[1]= (V48);
  235.     vs_top=(vs_base=base+1)+1;
  236.     siLspecialp();
  237.     vs_top=sup;
  238.     if((vs_base[0])!=Cnil){
  239.     goto T92;}
  240.     (void)((*(LnkLI74))((V48)));
  241. T92:;
  242.     V54= (*(LnkLI68))((V48));{object V56;
  243.     V56= get((V48),VV[5],Cnil);
  244.     if(V56==Cnil)goto T99;
  245.     V55= V56;
  246.     goto T98;
  247. T99:;}
  248.     V55= Ct;
  249. T98:;
  250.     V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55));
  251.     setq(VV[18],make_cons((V53),symbol_value(VV[18])));
  252. T89:;
  253.     {object V57 = list(2,(V53),(V49));
  254.     VMR5(V57)}}
  255. T85:;
  256.     if(!(((V52))==(VV[19]))){
  257.     goto T105;}
  258.     V49= Ct;
  259.     goto T103;
  260. T105:;
  261.     if(!(((V52))==(VV[20]))){
  262.     goto T109;}
  263.     V50= Ct;
  264.     goto T103;
  265. T109:;
  266.     V58= structure_ref((V52),VV[0],0);
  267.     if(!((/* INLINE-ARGS */V58)==((V48)))){
  268.     goto T103;}
  269.     V59= structure_ref((V52),VV[0],2);
  270.     if(!((/* INLINE-ARGS */V59)==(VV[10]))){
  271.     goto T114;}
  272.     (void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48))));
  273.     (void)(structure_set((V52),VV[0],2,Ct));
  274. T114:;
  275.     if(((V49))==Cnil){
  276.     goto T120;}
  277.     (void)(structure_set((V52),VV[0],3,Ct));
  278.     goto T118;
  279. T120:;
  280.     if(((V50))==Cnil){
  281.     goto T123;}
  282.     V60= structure_ref((V52),VV[0],1);
  283.     if(!((/* INLINE-ARGS */V60)==(VV[9]))){
  284.     goto T125;}
  285.     (void)(structure_set((V52),VV[0],4,VV[22]));
  286. T125:;
  287.     (void)(structure_set((V52),VV[0],2,Ct));
  288.     goto T118;
  289. T123:;
  290.     (void)(structure_set((V52),VV[0],2,Ct));
  291.     {int V61= fix(structure_ref((V52),VV[0],6));
  292.     V62 = make_fixnum((1)+(/* INLINE-ARGS */V61));
  293.     (void)(structure_set((V52),VV[0],6,V62));}
  294. T118:;
  295.     {object V63 = list(2,(V52),(V49));
  296.     VMR5(V63)}
  297. T103:;
  298.     V51= cdr((V51));
  299.     V52= car((V51));
  300.     goto T84;}}
  301. }
  302. /*    local entry for function C2VAR-KIND    */
  303.  
  304. static object LI6(V65)
  305.  
  306. register object V65;
  307. {     VMB6 VMS6 VMV6
  308. TTL:;
  309.     V66= structure_ref((V65),VV[0],1);
  310.     if(!((/* INLINE-ARGS */V66)==(VV[9]))){
  311.     goto T135;}
  312.     if((structure_ref((V65),VV[0],3))!=Cnil){
  313.     goto T135;}
  314.     V67= structure_ref((V65),VV[0],4);
  315.     if((/* INLINE-ARGS */V67)==(VV[22])){
  316.     goto T135;}
  317.     V68= structure_ref((V65),VV[0],4);
  318.     if(!((/* INLINE-ARGS */V68)==(VV[7]))){
  319.     goto T142;}
  320.     {object V69 = VV[7];
  321.     VMR6(V69)}
  322. T142:;
  323.     {register object V70;
  324.     V70= structure_ref((V65),VV[0],5);
  325.     if(((*(LnkLI75))(VV[23],(V70)))==Cnil){
  326.     goto T146;}
  327.     {object V71 = VV[23];
  328.     VMR6(V71)}
  329. T146:;
  330.     if(((*(LnkLI75))(VV[24],(V70)))==Cnil){
  331.     goto T149;}
  332.     {object V72 = VV[24];
  333.     VMR6(V72)}
  334. T149:;
  335.     if(((*(LnkLI75))(VV[25],(V70)))==Cnil){
  336.     goto T152;}
  337.     {object V73 = VV[25];
  338.     VMR6(V73)}
  339. T152:;
  340.     if(((*(LnkLI75))(VV[26],(V70)))==Cnil){
  341.     goto T155;}
  342.     {object V74 = VV[26];
  343.     VMR6(V74)}
  344. T155:;
  345.     if(((*(LnkLI75))(VV[27],(V70)))==Cnil){
  346.     goto T158;}
  347.     {object V75 = VV[27];
  348.     VMR6(V75)}
  349. T158:;
  350.     {object V76;
  351.     base[0]= VV[8];
  352.     vs_top=(vs_base=base+0)+1;
  353.     Lboundp();
  354.     vs_top=sup;
  355.     if((vs_base[0])!=Cnil){
  356.     goto T161;}
  357.     V76= Cnil;
  358.     goto T160;
  359. T161:;
  360.     if(symbol_value(VV[8])==Cnil){
  361.     V76= Cnil;
  362.     goto T160;}
  363.     V76= VV[7];
  364. T160:;
  365.     if(((V76))==Cnil){
  366.     goto T165;}
  367.     {object V77 = (V76);
  368.     VMR6(V77)}
  369. T165:;
  370.     {object V78 = Cnil;
  371.     VMR6(V78)}}}
  372. T135:;
  373.     {object V79 = Cnil;
  374.     VMR6(V79)}
  375. }
  376. /*    local entry for function C2VAR    */
  377.  
  378. static object LI7(V81)
  379.  
  380. object V81;
  381. {     VMB7 VMS7 VMV7
  382. TTL:;
  383.     V82= make_cons(VV[0],(V81));
  384.     {object V83 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V82,Cnil,VV[28]));
  385.     VMR7(V83)}
  386. }
  387. /*    local entry for function C2LOCATION    */
  388.  
  389. static object LI8(V85)
  390.  
  391. object V85;
  392. {     VMB8 VMS8 VMV8
  393. TTL:;
  394.     {object V86 = (VFUN_NARGS=3,(*(LnkLI76))((V85),Cnil,VV[28]));
  395.     VMR8(V86)}
  396. }
  397. /*    local entry for function CHECK-DOWNWARD    */
  398.  
  399. static object LI9(V88)
  400.  
  401. object V88;
  402. {     VMB9 VMS9 VMV9
  403. TTL:;
  404.     {object V89;
  405.     V89= Cnil;
  406.     {register object V90;
  407.     object V91;
  408.     V90= symbol_value(VV[29]);
  409.     V91= car((V90));
  410. T172:;
  411.     if(!(endp((V90)))){
  412.     goto T173;}
  413.     goto T168;
  414. T173:;
  415.     if(!((car((V91)))==(VV[30]))){
  416.     goto T177;}
  417.     V89= Ct;
  418.     {register object V92;
  419.     register object V93;
  420.     V92= symbol_value(VV[29]);
  421.     V93= car((V92));
  422. T186:;
  423.     if(!(endp((V92)))){
  424.     goto T187;}
  425.     goto T182;
  426. T187:;
  427.     if(!((car((V93)))==(VV[31]))){
  428.     goto T191;}
  429.     {register object V94;
  430.     register object V95;
  431.     V94= (V93);
  432.     V95= VV[30];
  433.     if(type_of((V94))!=t_cons)FEwrong_type_argument(Scons,(V94));
  434.     ((V94))->c.c_car = (V95);}
  435. T191:;
  436.     V92= cdr((V92));
  437.     V93= car((V92));
  438.     goto T186;}
  439. T182:;
  440.     goto T168;
  441. T177:;
  442.     V90= cdr((V90));
  443.     V91= car((V90));
  444.     goto T172;}
  445. T168:;
  446.     setq(VV[29],Cnil);
  447.     if(((V89))==Cnil){
  448.     goto T210;}
  449.     {register object V96;
  450.     object V97;
  451.     V96= (V88);
  452.     V97= car((V96));
  453. T215:;
  454.     if(!(endp((V96)))){
  455.     goto T216;}
  456.     {object V98 = Cnil;
  457.     VMR9(V98)}
  458. T216:;
  459.     V99= structure_ref((V97),VV[0],1);
  460.     if(!((/* INLINE-ARGS */V99)==(VV[32]))){
  461.     goto T220;}
  462.     (void)(structure_set((V97),VV[0],1,VV[9]));
  463. T220:;
  464.     V96= cdr((V96));
  465.     V97= car((V96));
  466.     goto T215;}
  467. T210:;
  468.     {object V100 = Cnil;
  469.     VMR9(V100)}}
  470. }
  471. /*    local entry for function ASSIGN-DOWN-VARS    */
  472.  
  473. static object LI10(V104,V105,V106)
  474.  
  475. object V104;object V105;object V106;
  476. {     VMB10 VMS10 VMV10
  477. TTL:;
  478.     {register object V107;
  479.     V107= small_fixnum(0);
  480.     {register object V108;
  481.     register object V109;
  482.     V108= (V104);
  483.     V109= car((V108));
  484. T233:;
  485.     if(!(endp((V108)))){
  486.     goto T234;}
  487.     goto T229;
  488. T234:;
  489.     V110= structure_ref((V109),VV[0],1);
  490.     if(!((/* INLINE-ARGS */V110)==(VV[32]))){
  491.     goto T238;}
  492.     V111= structure_ref((V109),VV[0],4);
  493.     if(!(type_of(/* INLINE-ARGS */V111)==t_fixnum||type_of(/* INLINE-ARGS */V111)==t_bignum)){
  494.     goto T242;}
  495.     V112= structure_ref((V109),VV[0],4);
  496.     V113= one_plus(/* INLINE-ARGS */V112);
  497.     V107= (number_compare((V107),/* INLINE-ARGS */V113)>=0?((V107)):/* INLINE-ARGS */V113);
  498.     V114= structure_ref((V109),VV[0],4);
  499.     (void)(structure_set((V109),VV[0],2,/* INLINE-ARGS */V114));
  500.     goto T238;
  501. T242:;
  502.     (void)(structure_set((V109),VV[0],2,(V107)));
  503.     (void)(structure_set((V109),VV[0],4,(V107)));
  504.     V107= number_plus((V107),small_fixnum(1));
  505. T238:;
  506.     V108= cdr((V108));
  507.     V109= car((V108));
  508.     goto T233;}
  509. T229:;
  510.     if(!(number_compare((V107),small_fixnum(0))>0)){
  511.     goto T254;}
  512.     if(!(((V106))==(VV[33]))){
  513.     goto T257;}
  514.     princ_str("\n    object base0[",VV[34]);
  515.     (void)((*(LnkLI77))((V107)));
  516.     princ_str("];",VV[34]);
  517. T257:;
  518.     setq(VV[35],make_cons(VV[36],symbol_value(VV[35])));
  519.     princ_str("\n    DCnames",VV[34]);
  520.     (void)((*(LnkLI77))((V105)));
  521.     princ_str("",VV[34]);
  522. T254:;
  523.     {object V115 = (V107);
  524.     VMR10(V115)}}
  525. }
  526. /*    local entry for function WT-DOWN    */
  527.  
  528. static object LI11(V117)
  529.  
  530. object V117;
  531. {     VMB11 VMS11 VMV11
  532. TTL:;{object V118;
  533.     base[0]= (V117);
  534.     vs_top=(vs_base=base+0)+1;
  535.     (void) (*Lnk78)();
  536.     vs_top=sup;
  537.     V118= vs_base[0];
  538.     if(V118==Cnil)goto T269;
  539.     goto T268;
  540. T269:;}
  541.     (void)((*(LnkLI79))());
  542. T268:;
  543.     princ_str("base0[",VV[34]);
  544.     (void)((*(LnkLI77))((V117)));
  545.     princ_char(93,VV[34]);
  546.     {object V119 = Cnil;
  547.     VMR11(V119)}
  548. }
  549. /*    local entry for function WT-VAR    */
  550.  
  551. static object LI12(V122,V123)
  552.  
  553. register object V122;object V123;
  554. {     VMB12 VMS12 VMV12
  555. TTL:;
  556.     V125= structure_ref((V122),VV[0],1);
  557.     {object V124= /* INLINE-ARGS */V125;
  558.     if((V124!= VV[9]))goto T275;
  559.     if(((V123))==Cnil){
  560.     goto T277;}
  561.     V126= structure_ref((V122),VV[0],3);
  562.     {object V127 = (*(LnkLI80))(/* INLINE-ARGS */V126);
  563.     VMR12(V127)}
  564. T277:;
  565.     if((structure_ref((V122),VV[0],3))==Cnil){
  566.     goto T280;}
  567.     V128= structure_ref((V122),VV[0],2);
  568.     {object V129 = (*(LnkLI81))(/* INLINE-ARGS */V128);
  569.     VMR12(V129)}
  570. T280:;
  571.     V130= structure_ref((V122),VV[0],2);
  572.     if(!((Ct)==(/* INLINE-ARGS */V130))){
  573.     goto T283;}
  574.     V131= structure_ref((V122),VV[0],4);
  575.     if(!(type_of(/* INLINE-ARGS */V131)==t_fixnum)){
  576.     goto T283;}
  577.     if((symbol_value(VV[8]))==Cnil){
  578.     goto T283;}
  579.     V132= structure_ref((V122),VV[0],5);
  580.     if(!((Ct)==(/* INLINE-ARGS */V132))){
  581.     goto T283;}
  582.     (void)(structure_set((V122),VV[0],1,VV[7]));
  583.     goto TTL;
  584. T283:;
  585.     V133= structure_ref((V122),VV[0],2);
  586.     {object V134 = (*(LnkLI82))(/* INLINE-ARGS */V133);
  587.     VMR12(V134)}
  588. T275:;
  589.     if((V124!= VV[4]))goto T295;
  590.     princ_str("(VV[",VV[34]);
  591.     V135= structure_ref((V122),VV[0],4);
  592.     (void)((*(LnkLI77))(/* INLINE-ARGS */V135));
  593.     princ_str("]->s.s_dbind)",VV[34]);
  594.     {object V136 = Cnil;
  595.     VMR12(V136)}
  596. T295:;
  597.     if((V124!= VV[83]))goto T299;
  598.     V137= structure_ref((V122),VV[0],4);
  599.     (void)((*(LnkLI77))(/* INLINE-ARGS */V137));
  600.     {object V138 = Cnil;
  601.     VMR12(V138)}
  602. T299:;
  603.     if((V124!= VV[32]))goto T301;
  604.     V139= structure_ref((V122),VV[0],4);
  605.     {object V140 = (*(LnkLI84))(/* INLINE-ARGS */V139);
  606.     VMR12(V140)}
  607. T301:;
  608.     if((V124!= VV[15]))goto T302;
  609.     if((symbol_value(VV[37]))==Cnil){
  610.     goto T304;}
  611.     princ_str("symbol_value(VV[",VV[34]);
  612.     V141= structure_ref((V122),VV[0],4);
  613.     (void)((*(LnkLI77))(/* INLINE-ARGS */V141));
  614.     princ_str("])",VV[34]);
  615.     {object V142 = Cnil;
  616.     VMR12(V142)}
  617. T304:;
  618.     princ_str("(VV[",VV[34]);
  619.     V143= structure_ref((V122),VV[0],4);
  620.     (void)((*(LnkLI77))(/* INLINE-ARGS */V143));
  621.     princ_str("]->s.s_dbind)",VV[34]);
  622.     {object V144 = Cnil;
  623.     VMR12(V144)}
  624. T302:;
  625.     V146= structure_ref((V122),VV[0],1);
  626.     {object V145= /* INLINE-ARGS */V146;
  627.     if((V145!= VV[23]))goto T313;
  628.     if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){
  629.     goto T314;}
  630.     princ_str("CMP",VV[34]);
  631. T314:;
  632.     princ_str("make_fixnum",VV[34]);
  633.     goto T312;
  634. T313:;
  635.     if((V145!= VV[24]))goto T319;
  636.     princ_str("make_integer",VV[34]);
  637.     goto T312;
  638. T319:;
  639.     if((V145!= VV[25]))goto T321;
  640.     princ_str("code_char",VV[34]);
  641.     goto T312;
  642. T321:;
  643.     if((V145!= VV[26]))goto T323;
  644.     princ_str("make_longfloat",VV[34]);
  645.     goto T312;
  646. T323:;
  647.     if((V145!= VV[27]))goto T325;
  648.     princ_str("make_shortfloat",VV[34]);
  649.     goto T312;
  650. T325:;
  651.     if((V145!= VV[7]))goto T327;
  652.     goto T312;
  653. T327:;
  654.     (void)((*(LnkLI85))());}
  655. T312:;
  656.     princ_str("(V",VV[34]);
  657.     V147= structure_ref((V122),VV[0],4);
  658.     (void)((*(LnkLI77))(/* INLINE-ARGS */V147));
  659.     princ_char(41,VV[34]);
  660.     {object V148 = Cnil;
  661.     VMR12(V148)}}
  662. }
  663. /*    local entry for function SET-VAR    */
  664.  
  665. static object LI13(V152,V153,V154)
  666.  
  667. register object V152;register object V153;object V154;
  668. {     VMB13 VMS13 VMV13
  669.     bds_check;
  670. TTL:;
  671.     if(!(type_of((V152))==t_cons)){
  672.     goto T331;}
  673.     if(!((car((V152)))==(VV[0]))){
  674.     goto T331;}
  675.     if(!((cadr((V152)))==((V153)))){
  676.     goto T331;}
  677.     if((caddr((V152)))==((V154))){
  678.     goto T332;}
  679. T331:;
  680.     V156= structure_ref((V153),VV[0],1);
  681.     {object V155= /* INLINE-ARGS */V156;
  682.     if((V155!= VV[9]))goto T340;
  683.     princ_str("\n    ",VV[34]);
  684.     if(((V154))==Cnil){
  685.     goto T344;}
  686.     V157= structure_ref((V153),VV[0],3);
  687.     (void)((*(LnkLI80))(/* INLINE-ARGS */V157));
  688.     goto T342;
  689. T344:;
  690.     if((structure_ref((V153),VV[0],3))==Cnil){
  691.     goto T347;}
  692.     V158= structure_ref((V153),VV[0],2);
  693.     (void)((*(LnkLI81))(/* INLINE-ARGS */V158));
  694.     goto T342;
  695. T347:;
  696.     V159= structure_ref((V153),VV[0],2);
  697.     (void)((*(LnkLI82))(/* INLINE-ARGS */V159));
  698. T342:;
  699.     princ_str("= ",VV[34]);
  700.     (void)((*(LnkLI77))((V152)));
  701.     princ_char(59,VV[34]);
  702.     {object V160 = Cnil;
  703.     VMR13(V160)}
  704. T340:;
  705.     if((V155!= VV[4]))goto T352;
  706.     princ_str("\n    (VV[",VV[34]);
  707.     V161= structure_ref((V153),VV[0],4);
  708.     (void)((*(LnkLI77))(/* INLINE-ARGS */V161));
  709.     princ_str("]->s.s_dbind)= ",VV[34]);
  710.     (void)((*(LnkLI77))((V152)));
  711.     princ_char(59,VV[34]);
  712.     {object V162 = Cnil;
  713.     VMR13(V162)}
  714. T352:;
  715.     if((V155!= VV[15]))goto T358;
  716.     if((symbol_value(VV[37]))==Cnil){
  717.     goto T360;}
  718.     princ_str("\n    setq(VV[",VV[34]);
  719.     V163= structure_ref((V153),VV[0],4);
  720.     (void)((*(LnkLI77))(/* INLINE-ARGS */V163));
  721.     princ_str("],",VV[34]);
  722.     (void)((*(LnkLI77))((V152)));
  723.     princ_str(");",VV[34]);
  724.     {object V164 = Cnil;
  725.     VMR13(V164)}
  726. T360:;
  727.     princ_str("\n    (VV[",VV[34]);
  728.     V165= structure_ref((V153),VV[0],4);
  729.     (void)((*(LnkLI77))(/* INLINE-ARGS */V165));
  730.     princ_str("]->s.s_dbind)= ",VV[34]);
  731.     (void)((*(LnkLI77))((V152)));
  732.     princ_char(59,VV[34]);
  733.     {object V166 = Cnil;
  734.     VMR13(V166)}
  735. T358:;
  736.     if((V155!= VV[32]))goto T372;
  737.     princ_str("\n    ",VV[34]);
  738.     V167= structure_ref((V153),VV[0],4);
  739.     (void)((*(LnkLI84))(/* INLINE-ARGS */V167));
  740.     princ_char(61,VV[34]);
  741.     (void)((*(LnkLI77))((V152)));
  742.     princ_char(59,VV[34]);
  743.     {object V168 = Cnil;
  744.     VMR13(V168)}
  745. T372:;
  746.     if((V155!= VV[24]))goto T379;
  747.     {object V169;
  748.     register object V170;
  749.     if(type_of((V152))==t_cons){
  750.     goto T381;}
  751.     V169= Cnil;
  752.     goto T380;
  753. T381:;
  754.     V169= car((V152));
  755. T380:;
  756.     V170= structure_ref((V153),VV[0],4);
  757.     {object V171= (V169);
  758.     if((V171!= VV[86]))goto T385;
  759.     princ_str("\n    ISETQ_FIX(V",VV[34]);
  760.     (void)((*(LnkLI77))((V170)));
  761.     princ_str(",V",VV[34]);
  762.     (void)((*(LnkLI77))((V170)));
  763.     princ_str("alloc,",VV[34]);
  764.     base[0]= caddr((V152));
  765.     base[1]= cadddr((V152));
  766.     vs_top=(vs_base=base+0)+2;
  767.     (void) (*Lnk87)();
  768.     vs_top=sup;
  769.     goto T384;
  770. T385:;
  771.     if((V171!= VV[88]))goto T394;
  772.     princ_str("\n    ISETQ_FIX(V",VV[34]);
  773.     (void)((*(LnkLI77))((V170)));
  774.     princ_str(",V",VV[34]);
  775.     (void)((*(LnkLI77))((V170)));
  776.     princ_str("alloc,",VV[34]);
  777.     (void)((*(LnkLI77))(caddr((V152))));
  778.     goto T384;
  779. T394:;
  780.     if((V171!= VV[0]))goto T401;
  781.     V173= structure_ref(cadr((V152)),VV[0],1);
  782.     {object V172= /* INLINE-ARGS */V173;
  783.     if((V172!= VV[24]))goto T402;
  784.     princ_str("SETQ_II(V",VV[34]);
  785.     (void)((*(LnkLI77))((V170)));
  786.     princ_str(",V",VV[34]);
  787.     (void)((*(LnkLI77))((V170)));
  788.     princ_str("alloc,V",VV[34]);
  789.     V174= structure_ref(cadr((V152)),VV[0],4);
  790.     (void)((*(LnkLI77))(/* INLINE-ARGS */V174));
  791.     goto T384;
  792. T402:;
  793.     if((V172!= VV[23]))goto T409;
  794.     princ_str("ISETQ_FIX(V",VV[34]);
  795.     (void)((*(LnkLI77))((V170)));
  796.     princ_str(",V",VV[34]);
  797.     (void)((*(LnkLI77))((V170)));
  798.     princ_str("alloc,V",VV[34]);
  799.     V175= structure_ref(cadr((V152)),VV[0],4);
  800.     (void)((*(LnkLI77))(/* INLINE-ARGS */V175));
  801.     goto T384;
  802. T409:;
  803.     princ_str("SETQ_IO(V",VV[34]);
  804.     (void)((*(LnkLI77))((V170)));
  805.     princ_str(",V",VV[34]);
  806.     (void)((*(LnkLI77))((V170)));
  807.     princ_str("alloc,",VV[34]);
  808.     (void)((*(LnkLI77))((V152)));
  809.     goto T384;}
  810. T401:;
  811.     if((V171!= VV[54]))goto T422;
  812.     princ_str("SETQ_IO(V",VV[34]);
  813.     (void)((*(LnkLI77))((V170)));
  814.     princ_str(",V",VV[34]);
  815.     (void)((*(LnkLI77))((V170)));
  816.     princ_str("alloc,",VV[34]);
  817.     (void)((*(LnkLI77))((V152)));
  818.     goto T384;
  819. T422:;
  820.     bds_bind(VV[39],small_fixnum(0));
  821.     bds_bind(VV[40],symbol_value(VV[40]));
  822.     base[2]= VV[41];
  823.     vs_top=(vs_base=base+2)+1;
  824.     (void) (*Lnk89)();
  825.     vs_top=sup;
  826.     princ_str("\n    SETQ_II(V",VV[34]);
  827.     (void)((*(LnkLI77))((V170)));
  828.     princ_str(",V",VV[34]);
  829.     (void)((*(LnkLI77))((V170)));
  830.     princ_str("alloc,",VV[34]);
  831.     base[2]= (V152);
  832.     base[3]= make_cons(VV[42],(V153));
  833.     vs_top=(vs_base=base+2)+2;
  834.     (void) (*Lnk90)();
  835.     vs_top=sup;
  836.     princ_str(");",VV[34]);
  837.     V176= (*(LnkLI91))();
  838.     bds_unwind1;
  839.     bds_unwind1;
  840.     {object V177 = Cnil;
  841.     VMR13(V177)}}
  842. T384:;
  843.     princ_str(");",VV[34]);
  844.     {object V178 = Cnil;
  845.     VMR13(V178)}}
  846. T379:;
  847.     princ_str("\n    V",VV[34]);
  848.     V179= structure_ref((V153),VV[0],4);
  849.     (void)((*(LnkLI77))(/* INLINE-ARGS */V179));
  850.     princ_str("= ",VV[34]);
  851.     V181= structure_ref((V153),VV[0],1);
  852.     {object V180= /* INLINE-ARGS */V181;
  853.     if((V180!= VV[23]))goto T449;
  854.     base[0]= (V152);
  855.     vs_top=(vs_base=base+0)+1;
  856.     (void) (*Lnk92)();
  857.     vs_top=sup;
  858.     goto T448;
  859. T449:;
  860.     if((V180!= VV[25]))goto T451;
  861.     base[0]= (V152);
  862.     vs_top=(vs_base=base+0)+1;
  863.     (void) (*Lnk93)();
  864.     vs_top=sup;
  865.     goto T448;
  866. T451:;
  867.     if((V180!= VV[26]))goto T453;
  868.     base[0]= (V152);
  869.     vs_top=(vs_base=base+0)+1;
  870.     (void) (*Lnk94)();
  871.     vs_top=sup;
  872.     goto T448;
  873. T453:;
  874.     if((V180!= VV[27]))goto T455;
  875.     base[0]= (V152);
  876.     vs_top=(vs_base=base+0)+1;
  877.     (void) (*Lnk95)();
  878.     vs_top=sup;
  879.     goto T448;
  880. T455:;
  881.     if((V180!= VV[7]))goto T457;
  882.     base[0]= (V152);
  883.     vs_top=(vs_base=base+0)+1;
  884.     (void) (*Lnk96)();
  885.     vs_top=sup;
  886.     goto T448;
  887. T457:;
  888.     (void)((*(LnkLI85))());}
  889. T448:;
  890.     princ_char(59,VV[34]);
  891.     {object V182 = Cnil;
  892.     VMR13(V182)}}
  893. T332:;
  894.     {object V183 = Cnil;
  895.     VMR13(V183)}
  896. }
  897. /*    local entry for function SCH-GLOBAL    */
  898.  
  899. static object LI14(V185)
  900.  
  901. register object V185;
  902. {     VMB14 VMS14 VMV14
  903. TTL:;
  904.     {register object V186;
  905.     register object V187;
  906.     V186= symbol_value(VV[18]);
  907.     V187= car((V186));
  908. T463:;
  909.     if(!(endp((V186)))){
  910.     goto T464;}
  911.     {object V188 = Cnil;
  912.     VMR14(V188)}
  913. T464:;
  914.     V189= structure_ref((V187),VV[0],0);
  915.     if(!((/* INLINE-ARGS */V189)==((V185)))){
  916.     goto T468;}
  917.     {object V190 = (V187);
  918.     VMR14(V190)}
  919. T468:;
  920.     V186= cdr((V186));
  921.     V187= car((V186));
  922.     goto T463;}
  923. }
  924. /*    local entry for function C1ADD-GLOBALS    */
  925.  
  926. static object LI15(V192)
  927.  
  928. object V192;
  929. {     VMB15 VMS15 VMV15
  930. TTL:;
  931.     {register object V193;
  932.     register object V194;
  933.     V193= (V192);
  934.     V194= car((V193));
  935. T479:;
  936.     if(!(endp((V193)))){
  937.     goto T480;}
  938.     {object V195 = Cnil;
  939.     VMR15(V195)}
  940. T480:;
  941.     V196= (*(LnkLI68))((V194));
  942.     {register object V198;
  943.     V198= get((V194),VV[5],Cnil);
  944.     if(((V198))==Cnil){
  945.     goto T489;}
  946.     V197= (V198);
  947.     goto T486;
  948. T489:;
  949.     V197= Ct;}
  950. T486:;
  951.     V199= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V194),VV[14],VV[15],VV[16],/* INLINE-ARGS */V196,VV[17],V197));
  952.     setq(VV[13],make_cons(/* INLINE-ARGS */V199,symbol_value(VV[13])));
  953.     V193= cdr((V193));
  954.     V194= car((V193));
  955.     goto T479;}
  956. }
  957. /*    local entry for function C1SETQ    */
  958.  
  959. static object LI16(V201)
  960.  
  961. register object V201;
  962. {     VMB16 VMS16 VMV16
  963. TTL:;
  964.     if(!(endp((V201)))){
  965.     goto T497;}
  966.     {object V202 = (*(LnkLI97))();
  967.     VMR16(V202)}
  968. T497:;
  969.     if(!(endp(cdr((V201))))){
  970.     goto T500;}
  971.     {object V203 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1));
  972.     VMR16(V203)}
  973. T500:;
  974.     if(!(endp(cddr((V201))))){
  975.     goto T503;}
  976.     {object V204 = (*(LnkLI99))(car((V201)),cadr((V201)));
  977.     VMR16(V204)}
  978. T503:;
  979.     {register object V205;
  980.     register object V206;
  981.     V205= (V201);
  982.     V206= Cnil;
  983. T506:;
  984.     if(!(endp((V205)))){
  985.     goto T507;}
  986.     V207= reverse((V206));
  987.     V208= make_cons(VV[44],/* INLINE-ARGS */V207);
  988.     {object V209 = (*(LnkLI100))(/* INLINE-ARGS */V208);
  989.     VMR16(V209)}
  990. T507:;
  991.     if(!(endp(cdr((V205))))){
  992.     goto T511;}
  993.     (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V205)))));
  994. T511:;
  995.     V210= list(3,VV[43],car((V205)),cadr((V205)));
  996.     V206= make_cons(/* INLINE-ARGS */V210,(V206));
  997.     V205= cddr((V205));
  998.     goto T506;}
  999. }
  1000. /*    local entry for function C1SETQ1    */
  1001.  
  1002. static object LI17(V213,V214)
  1003.  
  1004. register object V213;object V214;
  1005. {     VMB17 VMS17 VMV17
  1006. TTL:;
  1007.     {register object V215;
  1008.     register object V216;
  1009.     register object V217;
  1010.     register object V218;
  1011.     V215= (VFUN_NARGS=0,(*(LnkLI71))());
  1012.     V216= Cnil;
  1013.     V217= Cnil;
  1014.     V218= Cnil;
  1015.     if(type_of((V213))==t_symbol){
  1016.     goto T523;}
  1017.     (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V213))));
  1018. T523:;
  1019.     base[1]= (V213);
  1020.     vs_top=(vs_base=base+1)+1;
  1021.     Lconstantp();
  1022.     vs_top=sup;
  1023.     if((vs_base[0])==Cnil){
  1024.     goto T526;}
  1025.     (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V213))));
  1026. T526:;
  1027.     V218= (*(LnkLI72))((V213));
  1028.     {object V220;
  1029.     V221= car((V218));
  1030.     V222= structure_ref(V215,VV[12],0);
  1031.     V220= make_cons(/* INLINE-ARGS */V221,/* INLINE-ARGS */V222);
  1032.     (void)(structure_set(V215,VV[12],0,(V220)));}
  1033.     V217= (*(LnkLI100))((V214));
  1034.     (void)((*(LnkLI101))((V215),cadr((V217))));
  1035.     V223= structure_ref(car((V218)),VV[0],5);
  1036.     V224= structure_ref(cadr((V217)),VV[12],2);
  1037.     V216= (*(LnkLI102))(/* INLINE-ARGS */V223,/* INLINE-ARGS */V224);
  1038.     if(((V216))!=Cnil){
  1039.     goto T539;}
  1040.     (void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V213),(V214))));
  1041. T539:;
  1042.     V225= structure_ref(cadr((V217)),VV[12],2);
  1043.     if(((V216))==(/* INLINE-ARGS */V225)){
  1044.     goto T542;}
  1045.     {object V226;
  1046.     base[1]= cadr((V217));
  1047.     vs_top=(vs_base=base+1)+1;
  1048.     (void) (*Lnk103)();
  1049.     vs_top=sup;
  1050.     V226= vs_base[0];
  1051.     (void)(structure_set((V226),VV[12],2,(V216)));
  1052.     V217= listA(3,car((V217)),(V226),cddr((V217)));}
  1053. T542:;
  1054.     (void)(structure_set((V215),VV[12],2,(V216)));
  1055.     {object V227 = list(4,VV[43],(V215),(V218),(V217));
  1056.     VMR17(V227)}}
  1057. }
  1058. /*    local entry for function C2SETQ    */
  1059.  
  1060. static object LI18(V230,V231)
  1061.  
  1062. object V230;object V231;
  1063. {     VMB18 VMS18 VMV18
  1064.     bds_check;
  1065. TTL:;
  1066.     base[0]= make_cons(VV[0],(V230));
  1067.     bds_bind(VV[49],base[0]);
  1068.     V232= (*(LnkLI104))((V231));
  1069.     bds_unwind1;
  1070.     {object V233= car((V231));
  1071.     if((V233!= VV[105]))goto T552;
  1072.     {object V234 = (*(LnkLI106))(caddr((V231)));
  1073.     VMR18(V234)}
  1074. T552:;
  1075.     V235= make_cons(VV[0],(V230));
  1076.     {object V236 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V235));
  1077.     VMR18(V236)}}
  1078. }
  1079. /*    local entry for function C1PROGV    */
  1080.  
  1081. static object LI19(V238)
  1082.  
  1083. register object V238;
  1084. {     VMB19 VMS19 VMV19
  1085. TTL:;
  1086.     {object V239;
  1087.     object V240;
  1088.     register object V241;
  1089.     V239= Cnil;
  1090.     V240= Cnil;
  1091.     V241= (VFUN_NARGS=0,(*(LnkLI71))());
  1092.     if(endp((V238))){
  1093.     goto T557;}
  1094.     if(!(endp(cdr((V238))))){
  1095.     goto T556;}
  1096. T557:;
  1097.     V242 = make_fixnum(length((V238)));
  1098.     (void)((*(LnkLI98))(VV[50],small_fixnum(2),V242));
  1099. T556:;
  1100.     V239= (*(LnkLI107))(car((V238)),(V241));
  1101.     V240= (*(LnkLI107))(cadr((V238)),(V241));
  1102.     {object V243 = list(5,VV[50],(V241),(V239),(V240),(*(LnkLI108))(cddr((V238)),(V241)));
  1103.     VMR19(V243)}}
  1104. }
  1105. /*    local entry for function C2PROGV    */
  1106.  
  1107. static object LI20(V247,V248,V249)
  1108.  
  1109. object V247;object V248;object V249;
  1110. {     VMB20 VMS20 VMV20
  1111.     bds_check;
  1112. TTL:;
  1113.     {object V250;
  1114.     setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
  1115.     V250= symbol_value(VV[51]);
  1116.     bds_bind(VV[52],symbol_value(VV[52]));
  1117.     princ_str("\n    {object symbols,values;",VV[34]);
  1118.     princ_str("\n    bds_ptr V",VV[34]);
  1119.     (void)((*(LnkLI77))((V250)));
  1120.     princ_str("=bds_top;",VV[34]);
  1121.     (VV[52]->s.s_dbind)= make_cons((V250),(VV[52]->s.s_dbind));
  1122.     bds_bind(VV[53],symbol_value(VV[53]));
  1123.     base[3]= list(2,VV[54],(*(LnkLI109))());
  1124.     bds_bind(VV[49],base[3]);
  1125.     (void)((*(LnkLI104))((V247)));
  1126.     princ_str("\n    symbols= ",VV[34]);
  1127.     (void)((*(LnkLI77))((VV[49]->s.s_dbind)));
  1128.     princ_char(59,VV[34]);
  1129.     bds_unwind1;
  1130.     base[3]= list(2,VV[54],(*(LnkLI109))());
  1131.     bds_bind(VV[49],base[3]);
  1132.     (void)((*(LnkLI104))((V248)));
  1133.     princ_str("\n    values= ",VV[34]);
  1134.     (void)((*(LnkLI77))((VV[49]->s.s_dbind)));
  1135.     princ_char(59,VV[34]);
  1136.     bds_unwind1;
  1137.     princ_str("\n    while(!endp(symbols)){",VV[34]);
  1138.     if((symbol_value(VV[37]))==Cnil){
  1139.     goto T590;}
  1140.     princ_str("\n    if(type_of(MMcar(symbols))!=t_symbol)",VV[34]);
  1141.     princ_str("\n    FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]);
  1142. T590:;
  1143.     princ_str("\n    if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]);
  1144.     princ_str("\n    else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]);
  1145.     princ_str("\n    values=MMcdr(values);}",VV[34]);
  1146.     princ_str("\n    symbols=MMcdr(symbols);}",VV[34]);
  1147.     bds_unwind1;
  1148.     base[2]= (V249);
  1149.     vs_top=(vs_base=base+2)+1;
  1150.     (void) (*Lnk110)();
  1151.     vs_top=sup;
  1152.     princ_char(125,VV[34]);
  1153.     {object V251 = Cnil;
  1154.     bds_unwind1;
  1155.     VMR20(V251)}}
  1156. }
  1157. /*    local entry for function C1PSETQ    */
  1158.  
  1159. static object LI21(V253)
  1160.  
  1161. object V253;
  1162. {     VMB21 VMS21 VMV21
  1163. TTL:;
  1164.     {object V254;
  1165.     register object V255;
  1166.     object V256;
  1167.     V254= Cnil;
  1168.     V255= Cnil;
  1169.     V256= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55]));
  1170.     {register object V257;
  1171.     V257= (V253);
  1172. T611:;
  1173.     if(!(endp((V257)))){
  1174.     goto T612;}
  1175.     goto T609;
  1176. T612:;
  1177.     if(type_of(car((V257)))==t_symbol){
  1178.     goto T616;}
  1179.     (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V257)))));
  1180. T616:;
  1181.     base[1]= car((V257));
  1182.     vs_top=(vs_base=base+1)+1;
  1183.     Lconstantp();
  1184.     vs_top=sup;
  1185.     if((vs_base[0])==Cnil){
  1186.     goto T619;}
  1187.     (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V257)))));
  1188. T619:;
  1189.     if(!(endp(cdr((V257))))){
  1190.     goto T623;}
  1191.     (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V257)))));
  1192. T623:;
  1193.     {register object V258;
  1194.     register object V259;
  1195.     register object V260;
  1196.     V258= (*(LnkLI72))(car((V257)));
  1197.     V259= (*(LnkLI100))(cadr((V257)));
  1198.     V261= structure_ref(car((V258)),VV[0],5);
  1199.     V262= structure_ref(cadr((V259)),VV[12],2);
  1200.     V260= (*(LnkLI102))(/* INLINE-ARGS */V261,/* INLINE-ARGS */V262);
  1201.     V263= structure_ref(cadr((V259)),VV[12],2);
  1202.     if(equal((V260),/* INLINE-ARGS */V263)){
  1203.     goto T630;}
  1204.     {register object V264;
  1205.     base[4]= cadr((V259));
  1206.     vs_top=(vs_base=base+4)+1;
  1207.     (void) (*Lnk103)();
  1208.     vs_top=sup;
  1209.     V264= vs_base[0];
  1210.     (void)(structure_set((V264),VV[12],2,(V260)));
  1211.     V259= listA(3,car((V259)),(V264),cddr((V259)));}
  1212. T630:;
  1213.     V254= make_cons((V258),(V254));
  1214.     V255= make_cons((V259),(V255));
  1215.     {register object V265;
  1216.     object V266;
  1217.     V265= (V256);
  1218.     V267= car((V258));
  1219.     V268= structure_ref((V265),VV[12],0);
  1220.     V266= make_cons(/* INLINE-ARGS */V267,/* INLINE-ARGS */V268);
  1221.     (void)(structure_set((V265),VV[12],0,(V266)));}
  1222.     (void)((*(LnkLI101))((V256),cadar((V255))));}
  1223.     V257= cddr((V257));
  1224.     goto T611;}
  1225. T609:;
  1226.     V269= reverse((V254));
  1227.     {object V270 = list(4,VV[59],(V256),/* INLINE-ARGS */V269,reverse((V255)));
  1228.     VMR21(V270)}}
  1229. }
  1230. /*    local entry for function C2PSETQ    */
  1231.  
  1232. static object LI22(V273,V274)
  1233.  
  1234. object V273;register object V274;
  1235. {     VMB22 VMS22 VMV22
  1236.     bds_check;
  1237. TTL:;
  1238.     {register object V275;
  1239.     object V276;
  1240.     bds_bind(VV[53],symbol_value(VV[53]));
  1241.     V275= Cnil;
  1242.     V276= small_fixnum(0);
  1243.     {register object V277;
  1244.     register object V278;
  1245.     V277= (V273);
  1246.     V278= car((V277));
  1247. T653:;
  1248.     if(!(endp((V277)))){
  1249.     goto T654;}
  1250.     goto T649;
  1251. T654:;
  1252.     if(((*(LnkLI111))(car((V278)),cdr((V274))))!=Cnil){
  1253.     goto T659;}
  1254.     if(((*(LnkLI112))(car((V278)),cdr((V274))))==Cnil){
  1255.     goto T660;}
  1256. T659:;
  1257.     {object V279= caar((V274));
  1258.     if((V279!= VV[105]))goto T664;
  1259.     V280= make_cons((V278),caddar((V274)));
  1260.     V275= make_cons(/* INLINE-ARGS */V280,(V275));
  1261.     goto T658;
  1262. T664:;
  1263.     V282= structure_ref(car((V278)),VV[0],1);
  1264.     {register object x= /* INLINE-ARGS */V282,V281= VV[60];
  1265.     while(!endp(V281))
  1266.     if(eql(x,V281->c.c_car)){
  1267.     goto T668;
  1268.     }else V281=V281->c.c_cdr;
  1269.     goto T667;}
  1270. T668:;
  1271.     {object V283;
  1272.     object V284;
  1273.     object V285;
  1274.     V283= structure_ref(car((V278)),VV[0],1);
  1275.     setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
  1276.     V284= symbol_value(VV[51]);
  1277.     V286= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V283),VV[16],(V284)));
  1278.     V285= list(3,VV[0],/* INLINE-ARGS */V286,Cnil);
  1279.     princ_str("\n    {",VV[34]);
  1280.     (void)((*(LnkLI77))(symbol_value(VV[61])));
  1281.     V287= (*(LnkLI113))((V283));
  1282.     (void)((*(LnkLI77))(/* INLINE-ARGS */V287));
  1283.     princ_char(86,VV[34]);
  1284.     (void)((*(LnkLI77))((V284)));
  1285.     princ_char(59,VV[34]);
  1286.     V276= number_plus((V276),small_fixnum(1));
  1287.     bds_bind(VV[49],(V285));
  1288.     V288= (*(LnkLI104))(car((V274)));
  1289.     bds_unwind1;
  1290.     V289= make_cons((V278),(V285));
  1291.     V275= make_cons(/* INLINE-ARGS */V289,(V275));
  1292.     goto T658;}
  1293. T667:;
  1294.     base[2]= list(2,VV[54],(*(LnkLI109))());
  1295.     bds_bind(VV[49],base[2]);
  1296.     (void)((*(LnkLI104))(car((V274))));
  1297.     V290= make_cons((V278),(VV[49]->s.s_dbind));
  1298.     V275= make_cons(/* INLINE-ARGS */V290,(V275));
  1299.     bds_unwind1;
  1300.     goto T658;}
  1301. T660:;
  1302.     base[2]= make_cons(VV[0],(V278));
  1303.     bds_bind(VV[49],base[2]);
  1304.     V291= (*(LnkLI104))(car((V274)));
  1305.     bds_unwind1;
  1306. T658:;
  1307.     {object V292;
  1308.     V292= car((V274));
  1309.     V274= cdr((V274));}
  1310.     V277= cdr((V277));
  1311.     V278= car((V277));
  1312.     goto T653;}
  1313. T649:;
  1314.     {register object V293;
  1315.     register object V294;
  1316.     V293= (V275);
  1317.     V294= car((V293));
  1318. T701:;
  1319.     if(!(endp((V293)))){
  1320.     goto T702;}
  1321.     goto T697;
  1322. T702:;
  1323.     (void)((*(LnkLI42))(cdr((V294)),caar((V294)),cadar((V294))));
  1324.     V293= cdr((V293));
  1325.     V294= car((V293));
  1326.     goto T701;}
  1327. T697:;
  1328.     {object V296;
  1329.     V296= small_fixnum(0);
  1330. T715:;
  1331.     if(!(number_compare((V296),V276)>=0)){
  1332.     goto T716;}
  1333.     goto T712;
  1334. T716:;
  1335.     princ_char(125,VV[34]);
  1336.     V296= one_plus((V296));
  1337.     goto T715;}
  1338. T712:;
  1339.     {object V297 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil));
  1340.     bds_unwind1;
  1341.     VMR22(V297)}}
  1342. }
  1343. /*    function definition for WT-VAR-DECL    */
  1344.  
  1345. static L23()
  1346. {register object *base=vs_base;
  1347.     register object *sup=base+VM23; VC23
  1348.     vs_reserve(VM23);
  1349.     {register object V298;
  1350.     check_arg(1);
  1351.     V298=(base[0]);
  1352.     vs_top=sup;
  1353. TTL:;
  1354.     base[1]= (V298);
  1355.     base[2]= VV[0];
  1356.     vs_top=(vs_base=base+1)+2;
  1357.     (void) (*Lnk114)();
  1358.     vs_top=sup;
  1359.     if((vs_base[0])==Cnil){
  1360.     goto T726;}
  1361.     {object V299;
  1362.     V299= structure_ref((V298),VV[0],4);
  1363.     V300= structure_ref((V298),VV[0],1);
  1364.     if(!((/* INLINE-ARGS */V300)==(VV[24]))){
  1365.     goto T731;}
  1366.     princ_str("IDECL(",VV[34]);
  1367. T731:;
  1368.     (void)((*(LnkLI77))(symbol_value(VV[61])));
  1369.     V301= (*(LnkLI69))((V298));
  1370.     (void)((*(LnkLI77))(/* INLINE-ARGS */V301));
  1371.     V302= structure_ref((V298),VV[0],1);
  1372.     V303= (*(LnkLI113))(/* INLINE-ARGS */V302);
  1373.     (void)((*(LnkLI77))(/* INLINE-ARGS */V303));
  1374.     princ_char(86,VV[34]);
  1375.     (void)((*(LnkLI77))((V299)));
  1376.     V304= structure_ref((V298),VV[0],1);
  1377.     if(!(eql(/* INLINE-ARGS */V304,VV[24]))){
  1378.     goto T741;}
  1379.     princ_str(",V",VV[34]);
  1380.     (void)((*(LnkLI77))((V299)));
  1381.     princ_str("space,V",VV[34]);
  1382.     (void)((*(LnkLI77))((V299)));
  1383.     princ_str("alloc)",VV[34]);
  1384. T741:;
  1385.     princ_char(59,VV[34]);
  1386.     base[1]= Cnil;
  1387.     vs_top=(vs_base=base+1)+1;
  1388.     return;}
  1389. T726:;
  1390.     base[1]= (*(LnkLI79))();
  1391.     vs_top=(vs_base=base+1)+1;
  1392.     return;
  1393.     }
  1394. }
  1395. static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,1,ap);} /* REGISTER */
  1396. static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* STRUCTURE-SUBTYPE-P */
  1397. static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,3,ap);} /* SET-VAR */
  1398. static object  LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],&LnkLI113,1,ap);} /* REP-TYPE */
  1399. static object  LnkTLI112(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[112],&LnkLI112,2,ap);} /* ARGS-INFO-REFERRED-VARS */
  1400. static object  LnkTLI111(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[111],&LnkLI111,2,ap);} /* ARGS-INFO-CHANGED-VARS */
  1401. static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* C2EXPR */
  1402. static object  LnkTLI109(){return call_proc0(VV[109],&LnkLI109);} /* VS-PUSH */
  1403. static object  LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,2,ap);} /* C1PROGN* */
  1404. static object  LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],&LnkLI107,2,ap);} /* C1EXPR* */
  1405. static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,1,ap);} /* C2LOCATION */
  1406. static object  LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],&LnkLI104,1,ap);} /* C2EXPR* */
  1407. static LnkT103(){ call_or_link(VV[103],&Lnk103);} /* COPY-INFO */
  1408. static object  LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[102],&LnkLI102,2,ap);} /* TYPE-AND */
  1409. static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,2,ap);} /* ADD-INFO */
  1410. static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,1,ap);} /* C1EXPR */
  1411. static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,2,ap);} /* C1SETQ1 */
  1412. static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],&LnkLI98,3,ap);} /* TOO-FEW-ARGS */
  1413. static object  LnkTLI97(){return call_proc0(VV[97],&LnkLI97);} /* C1NIL */
  1414. static LnkT96(){ call_or_link(VV[96],&Lnk96);} /* WT-LOC */
  1415. static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* WT-SHORT-FLOAT-LOC */
  1416. static LnkT94(){ call_or_link(VV[94],&Lnk94);} /* WT-LONG-FLOAT-LOC */
  1417. static LnkT93(){ call_or_link(VV[93],&Lnk93);} /* WT-CHARACTER-LOC */
  1418. static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* WT-FIXNUM-LOC */
  1419. static object  LnkTLI91(){return call_proc0(VV[91],&LnkLI91);} /* CLOSE-INLINE-BLOCKS */
  1420. static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* WT-INTEGER-LOC */
  1421. static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* SAVE-AVMA */
  1422. static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* WT-INLINE-LOC */
  1423. static object  LnkTLI85(){return call_proc0(VV[85],&LnkLI85);} /* BABOON */
  1424. static object  LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[84],&LnkLI84,1,ap);} /* WT-DOWN */
  1425. static object  LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[82],&LnkLI82,1,ap);} /* WT-VS */
  1426. static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* WT-VS* */
  1427. static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* WT-CCB-VS */
  1428. static object  LnkTLI79(){return call_proc0(VV[79],&LnkLI79);} /* WFS-ERROR */
  1429. static LnkT78(){ call_or_link(VV[78],&Lnk78);} /* FIXNUMP */
  1430. static object  LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],&LnkLI77,1,ap);} /* WT1 */
  1431. static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[76],&LnkLI76,ap);} /* UNWIND-EXIT */
  1432. static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,2,ap);} /* TYPE>= */
  1433. static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* UNDEFINED-VARIABLE */
  1434. static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* SCH-GLOBAL */
  1435. static object  LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],&LnkLI72,1,ap);} /* C1VREF */
  1436. static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[71],&LnkLI71,ap);} /* MAKE-INFO */
  1437. static object  LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],&LnkLI70,ap);} /* CMPWARN */
  1438. static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,1,ap);} /* ADD-SYMBOL */
  1439. static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],&LnkLI67,ap);} /* CMPERR */
  1440. static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],&LnkLI66,ap);} /* MAKE-VAR */
  1441.